home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Drum Tester2 < prev    next >
Encoding:
Text File  |  1998-10-26  |  1018 b   |  30 lines  |  [TEXT/ScoM]
  1. (def-orchestra 'orchestra
  2.    all-instruments (drums)
  3.    drums (hihat1 hihat2 basl snare fill)
  4. )
  5.  
  6. (def-section-timesheet sect-a
  7.    with 1/1
  8.    tonality drums
  9.    drums     "----"
  10.    ;
  11.    ; drum pattern
  12.    ;
  13.    beat 1/16 ; 1---!---!---!---.---!---!---!---2---!---!---!---.---!---!---!---.
  14.    basl       "-   -   -   -   -   -   -   -   -   -   -   -   -   -   - - - - " (join-drums mu80-analog BDAnalogL BassDrumM) with '(65)
  15.    snare      "    -               -               -               -       --  " (join-drums mu80-analog anasnareh SnareRoll) with '(35)
  16.    fill       "            -               -               -                   " (mu80-analog whipslap) with '(35)
  17.    hihat1     " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" (mu80-analog cabasa) with '(65 55)
  18.    hihat2     "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " (mu80-analog AnaHHClosed1) with '(65 55)
  19. )
  20.  
  21. (def-section sect-a
  22.   drums
  23.     channel 10
  24. )
  25.  
  26. (play-file-p "drumtest"
  27.    all-instruments '(sect-a)
  28. )
  29.  
  30.